home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / ASSEMBLE / H055.ZIP / MAC / WRITE.MAC < prev    next >
Text File  |  1987-08-12  |  658b  |  33 lines
  1. WRITE     MACRO DCB?,0,RBN?,RBA=?,RBN=&3
  2.      AIF   /&LABEL$$=/ .GO
  3. &LABEL$$ EQU   *
  4. .GO     AIF   &1=(.REG1
  5.      LA    2,&1
  6.      AGO   .RBA
  7. .REG1     AIF   &1=(2).RBA
  8.      LR    2,&1
  9. .RBA     AIF   &RBA=?.RBN
  10.      AIF   &RBA=(.REG2
  11.      AIF   &RBA<A.RBAABS
  12.      MVC   36(4,2),&RBA
  13.      AGO   .AREA
  14. .REG2     ST    &RBA,36(0,2)
  15.      AGO   .AREA
  16. .RBAABS  MVC   36(4,2),=F'&RBA'
  17.      AGO   .AREA
  18. .RBN     AIF   &RBN=(.REG3
  19.      AIF   &RBN<A.RBNABS
  20.      L     1,&RBN
  21.      AGO   .MULT
  22. .REG3     LR    1,&RBN
  23.      AGO   .MULT
  24. .RBNABS  L     1,=F'&RBN'
  25. .MULT     MH    1,18(0,2)
  26.      ST    1,36(0,2)
  27. .AREA     AIF   &2=(.REG4
  28.      LA    1,&2
  29.      AGO   .SVC
  30. .REG4     AIF   &2=(1).SVC
  31.      LR    1,&2
  32. .SVC     SVC   4
  33.